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MPSCHED = MULTIPROCESSOR SCHEDULER : i ae 4 9 0: 9: 93 bt Macro V04-00 Page 


v04=-0 - 2:4 MP. SRCIMPPREFIX.MAR;1 
13 
p ¢ : Version: *v04-000' 
i . 
5 -MCALL MFPR 
1 TITLE afta = MULTIPROCESSOR SCHEDULER 
§ -IDENT 'v04-000' 
4 4; 
4 5 Ss aa deen seen “tna! enue ae Sa ee 
bY ® 
4 : 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0 § :* DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. * 
B88 18 :* ALL RIGHTS RESERVED. ° 
0000 11 * THIS brie i FURNISHED pee A LICENSE AND MAY BE USED AND correo * 
0000 \§ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH HD ve ‘o> we THE * 
0000 13 ;* INCLUSION OF THe ABOVE gid hd NOTICE. THIS sof TWARE OR OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8006 16 :* TRANSFERRED. * 
3 ® 
0000 Ht 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE a 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 Y CORPORATION. * 
= ie 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ae 
*® ® 
4 § ITITISISIIIIILETITITTITTITITIITITI LITT L TTT t iti tiiiiitiiiiiiiti titi italy 
0000 8° 
0000 9 s++ 
0000 os 
44 1; Facility: Executive , Hardware fault handling 
464 $ : Abstract: Multi-processing scheduler routines 
444 2 : Environment: MODE=Kernel 
9009 f : Author: RICHARD I. HUSTVEDT, Creation date: 15-MAY-1979 
2098 39 : Modified by: 
990 41; v03-007 kDM0032 Kathleen D. Morse 19-Nov-1982 
000 4 3 Remove performance measurement for wait time between 
O60 o7 : reschedules on secondary. 
it 45; v03-006 KDM0018 _ Kathleen D. Morse 19-Nov-1982 
00 $$ : Implement wait for event flag system services on 
000 ? $ secondary. 
09 2 : v03-005 KOnOOT4 Kathleen D. Morse 27-Sep-1982 
50 ; Fix pertornence data collection of scheduling usage 
; 2} : of exec mode AST. 
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-SEP-1984 MP.SRCIMPSCHED.MAR; 1 
2% v03-004 KDM0008 Kathleen D. Morse 31-Aug-1982 
4; Prevent race between STOP/CPU and rescheduling interrupts. 
$3 A SVPCTX could be done twice for the current process on 
$ 3 the secondary. 
3 8 ; v03-003 KDM0007 Kathleen D. Morse 31-Aug-1982 
: Remove SCHSIDLE from MPSS$RESCHED logic flow. prong ing 
0 60 : IPL from 7 to 5 allowed AST queuing and if an IPL 
88 61; reschedule interrupt occurred, then the same PCB address 
bo $6 3 ended up in MPSSGL_CURPCB and SCHSGL_CURPCB, causing problems. 
000 4:01 - 
09 83 i-- 
80 6 
00 67 ; 
0000 68 ; INCLUDE FILES: 
4 9; 
00 0 
0000 71; 
0000 72 ; MACROS: 
0000 73 ; 
0000 74 
0000 75 ; 
0000 76 ; EQUATED SYMBOLS: 
0000 77 ; 
000 78 
000 79 SDYNDEF ; Structure type code definitions — 
0000 80 SIPLOEF ; Interrupt pron sy level definitions 
0000 81 SLCKDEF : Interlock bit definitions 
0000 8 SMPSDEF 3; Secondary processor state definitions 
0000 8 SPCBDEF : PCB definitions 
000 84 SPHDDEF 3; PHD definitions 
000 8 SPRDEF : Processor register definitions 
000 § SPSLDEF ; Program status longword definitions 
0000 8 SSTATEDEF : State definitions 
0000 8 
0000 9; 
it 90 ; OWN STORAGE: 
00 91; 
838 9 
000 95 3 ++ 
4 94; 
00 32 3; IPL Usages: 
099 $3 : Primary Processor Secondary Processor 
0900 99 ; 
‘4 100 ; 0 = Unused 0 = Unused 
101 ; 1 = Unused 1 = Unused 
1 § : 5 - AST delivery g - AST delivery 
0 103 ; - Rescheduling = Rescheduling 
; 104 ; 4 = 10 posting 4 = Unused 
105 ; 5 - Multi-processor interrupt 5 = Xdelta 
0 ; 1 $ : § - for § = Unused 
0 107 ; - Software timer interrupt - Quantum end software interrupt 
3 1 3 : 8 - Fork 8 = Unused 
1 : - Fork - Unused 
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Unused 

Device interrupt 
Device interrupt 
Device interrupt 
Device interrupt 
Timer interrupt 

Unuse 

Unused 

Urused 

Unused 

Unused 

Unused 

Unused 
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-PSECT AEXENONPAGED,LONG 


Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Timer interrupt 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
Unused 
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OF SAP RESCHEDULING (MA7B0 'SasEP=19B¢ 03:07:50 EMPLSREIMPSCHED MARS 1 uate 
0 -SBTTL MPSSRESCHEDIPLS = MP RESCHEDULING (MA780) INTERRUPT HANDLER 
; MPSSRESCHEDIPLS = MULTI=PROCESSOR RESCHEDULING (MA780) INTERRUPT HANDLER 
; This routine is entered via the IPL 5 rescheduling interrupt. 
; The vector for this interrupt is coded to cause execution 
on the interrupt stack. 
ENVIRONMENT: 
IPL=5 MODE=kernel IS=1 
Executed by the primary processor. 
INPUT: 


Soh ee at reschedule interrupt 
4(SP)=PSL at interrupt 


L 
$ 


«ALIGN LONG 
MPSSRESCHEDIPLS:: 


Interrupt handlers must be 
longword aligned 
Interrupt han ler for 

multi-processor reschedule interrupt 


SOOOCOCOCSOCSOSSOOSOSOOOSOSCSOSOSOSOSOOSOSOSOOSOSOSOSOSOOOSOOOOOOSOOSOSOOSO OU 
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OQOoOOSOCOCOOOOSOOSOSOSSOS SOSSSOCOSOOSOO OOOO OOOOOOOOOOOOO 


PRO ODNA UNE WIN) @§ O OO NAUE WIN 9 OD NAME WIN = 9 OO NAM EWN 0 OONAU EW OO OONIO 
m 
z 
J 
o 


a a a ek a a dh dd dd dd 
OO OG90009009 690909 0909 09 SI INNIS DDS DOD DGS OD TTT TUTTE EB ES ES BE EI 


3F 0S s«wBB PUSHR #*M<RO,R1,R2,R3,R4,R5> Save needed registers 
IF DF ,MPPFMSWT 
BSBW MPSSPFM_RESCHD ; Gather performance measurement data 
18 10 BSBB MPSSSCHSCND ; Schedule secondary 
IF MPPFMSWT 
oe mPSSPFA” SCHDSUC ; Gather performance measurement data 
3F =saBBA POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
02 REI 3; Return from interrupt 
-ENABL LSB 
PFAIL_EXIT: Exit when secenters is in powerfail 
0000'CF 05 00 MOVL #MPSSK_INITSTATE, wempsset STATE Set state for restart 
0 11 aaamean™ 1$ ; Done with rescheduling 
03 O000'CF 01 CMPL W*MPSSGL_STATE ,AMPSSK _BUSYSTATE ; Check for powerfail window 
06 ig 1 BNEQ 1$ ; where secondary was set busy after it 
OOOO'CF OD 1 TSTL W*MPSSGL_PFAILTIM ; saw the powerfail occur. In this case, 
13 ig 1 BNEQ 7$ F 2°, drop the process owned by secondary 
0 1 1$: RSB 3; ALL done rescheduling secondary 
1 MPSSSCHSCND: : 3 aes ge secondary processor 
1 SETIPL #IPL$_SYNCH 5 iden sche yer with event reporting 
00 0000'CF 00 €6 1 4$: BBSSI 443 kS0 INT GAL OCK Wamp ssl 4 TERLOCK :; Flush cache queue 
ASSUME MPS$K_IDLESTA E Lf Mp MPSSK STATE 
ASSUME MPSS$K =PUSTSTA tf T MPS$K K-DROP STATE 
ASSUME ite KaInits ATE GT MPS$K-BUSYSTATE 
am & Pet AT E GT MPS$K-BUSY STATE 
02 OO00'CF »Di 5$: mPSSG ot STATE ,AMPSSK SOROPSTATE ; Is state already idle? 
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05 0000'CF 
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53 000 008? "GF 
00 0000° : 
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CHEDULER 16-SEP-1984 :07: AX/VMS Macro Vv04-00 Page 
MP RESCHEDULING (MA780 ~SEP-1984 95:07:93 tne SRCIMPSCHED.MAR; 1 ° 
BLSS BP SESCHEDIPLS [es Jyst schedule a new one 
BGTR MPSSEXIT r if busy 


The primary must check to see if the process was put into the DROP state 
because it needed the primary to check for an event flag wait condition 
or because it is ready for rescheduling. 


7$: BBCCI] #MPS$V +t) "lalla SECREQFLG,8$ ; Br if normal resched 
BSBW W*MPSSOAI ; “Go perform event flag wait check for 
BRB 4$ 3 secondary processor and recheck for 
8$: ; DROP in case process was returned 
; to the secondary processor 


The primary processor takes the process that the secondary can 
ne longer execute and puts it back on the soprepriate scheduler queue. 


W*MPSS$GL_CURPCB,R1 


MOVL ; Get address of current PCB 
MOVZBL PCB$B_PRI(R1) 


; Current priority 


BBSS R2 sr tae COMQS ,10$ Mark queue non-emp’ « 
10$: MOVW #SCHSC mBcBsy STATECRID | Set state to re: dnt computable 
MOVAQ G*S SCHSRO,C COMTCR2J,R3 ; Compute address of  ucue 
INSQUE (R1),a(R3)+ Ins of queue 
BBSS1 aeck$y. TiNTERLocK umessct IAFERLORE. 135¢: Flush cache queue 
15$: TSTL W*MPSSGL ILTIM ; “Is secondary in power fail? 
BNEQ PFAIL EX Br if yes, power fail in progress 
MOVL #MPSSR IOLESTATE, wempssei -STATE ; Set secondary's state to idle 
ety OpPLS StH SCH : "heschedule primary processor 


MPSSSCHEDIPLS:: 
TSTL 


NEXTQ: MOVAQ  G*SCHSAQ_COMHCR2),R5 


oo 
; MPSSSCHEDIPLS = SCHEDULE NEW PROCESS FOR EXECUTION 


In this routine, the pred poseeeees selects the highest priority 


; ; executable process and posers the hands of the secondary 


rocessor. It then tel 


s the secondary Beer stat to exit its idle 
oop and start executing, by altering MP 


$GL_STATE. 


; ENVIRONMENT: 


Executed by the primary processor. 


3; Schedule for execution 
Pra ek PFAILTIM 3; Has secondary taken powerfail? 
BNEQ EXIT ; i on Ro must set state to 
INIT so that he can restart. 
FFS #0 £32, G*SCHSGL_COMQS, R2’; Find first full state 
BEQL MPSSIDLE :No executable process? 
3; Compute queue head address 
; Get head of queve 


0 
QLOOP: MOVL (R4),R4 : Get next in queue 
Hiya te RA i Breit ye es end of queue 
OVL PEBS sees header address 


a 

EXTZV ors wt PCURNOD. TPSLSS_ rae k Y ye _PSL(R ) RO ;Get current mode 
BEQL aoPn : Br if yés, can 't run on secondary 
CMPB RO,PHDSB_ASTLVL(R5) ; Is there an AST pending for process? 
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= MULTIPROCESSOR SCHEDULER 16*SEP=1984 02:07:03 VAX/VMS Macro v04-00 Page | 
MPSSRESCHED IPL S » MP RESCHEDULING (MA780 ~$ee= 1383 85:95:98 EMP. SRCIMPSCHED-MARS1 . Gy 
aes A 0 BGEQ QLooP ; Br on yes, don't sched for secondary | 
0104 (SD A TSTL PHOSL_MPINHIBIT(RS) ; Any reason not to run on secondary? 
OF 1 A BNEQ QLooP ; Br on yes, don't sched for secondary 
54 6 OF AB REMQUE (R4),R4 3; Remove from queue 
98 ig A 4 BNEQ ets ; Queue not empty 
00 00000000 ' GF E : 2? 208 BBCC R2,G*SCHSGL_COMQS ,20$ ; Set queue empty 
2C AG OF 88 op 2§ ; MOVW #SCHSC cya PLBSY STATE (R4) 3; Set state to current 
0000' CF 4 0D par 28 MOVL R4 ,W*MPSS$GL_CURPTB ; Note current PCB loc 
0C1 260 -IF DF ,MPPFMSWT | 
Boe 61 BSBW W*MPSSPFM_EXCHG ; Collect perf meas data 
3 86 ~ENDC | 
0000' CF 03 =«~»00 apc! rt: MOVL #MPSSK_BUSYSTATE ,W*MPSS$GL_STATE ; Set state to busy 
0066 66 IF DF MPPFMSWT 
00C6 6 BSBW MPSSPFM_CTXSW ; Gather performance measurement data 
Es Se | 
05 454 oy RSB 3; Normal return | 
38 6 Mite 72 QEMPT: INCL Re 3; Next queue 
ae ee C3 00C9 7 SUBL3 R2,#32,R1 ; Compute number of remaining queues 
0B 15 O0CD 27% BLEQ MPSSIDLE : Br if none left 
52. Q0000000'GF 51 52 EA OOCF 75 FFS R2,R1,G*SCHSGL_COMQS,R2 ; Find next active state 
AS 12 0008 6 BNEQ NEXTQ 3; Continue if another non-empty state 
OODA 77 MPSSIDLE: 3; No active, executable process 
0000‘ CF 00000000 ' GF 9E OODA 78 MOVAB G“SCHSGL_NULLPCB,W*MPSS$GL_CURPCB ; Set to null PCB 
05 0O0E3 79 RSB 3; And return | 
00E4 80 
Goes e OEMPTY: | 
it 388 BUG_CHECK QUEUEMPTY,FATAL 
| 
00E8 85 SCHSIDLE: | 
00E8 86 SETIPL 4 ge SCHED 
00000000'GF 20 90 O0E 87 MOVB #32,G*SCHSGB_PRI 
0029 31 OOF 3 288 BRW MPS$SCHED ; And try again | 


MPSCHED = MULTIPROCESSOR SCHEDULER 16-SEP-1984 02:07: AX/VMS Macro v04-00 Page 
YOLsO80 MPSSRESCHED = RESCHEDULING INTERRUPT HAN ioe 7 95:97:93 ERP. SRCIMPSCHED MARS? . 
/ ee -SBTTL MPSSRESCHED = RESCHEDULING INTERRUPT HANDLER 
F $8 ; MPSSRESCHED - RESCHEDULING INTERRUPT HANDLER 
F 95 : This routine is entered via the IPL 3 rescheduling interrupt. 
F 38 ; the vector for this interrupt is coded to cause execution on 
oF 4 : the kernel stack. 
OF $3 : This routine replaces SCHSRESCHED in a vanilla VMS system. 
oF 1 : ENVIRONMENT: 
OF § : IPL=3 MODE=kernel 1S=0 
; 05 : Executed by the primary processor. 
F 0? : INPUT: 
F 09 : OO(SP)=PC at reschedule interrupt 
: ! $ O4(SP)=PSL at interrupt 
F 12 ie- 
F 1 «ALIGN LONG ; Align interrupt handler 
F 14 MPSSRESCHED:: 3 Reschedule interrupt handler 
F 1 SETIPL #IPLS$_SYNCH :; Synch scheduler with event reporting 
07 F 1 SVPCTX ; Save context of process 
51 Q0000000'GF 00 F 1 G*SCHSGL_CURPCB,R1 3; Get address of current PCB 
52 Al 9A 010 1 MOVZBL PCBS$B_PRI(R1 ; Current priority 
00 000000°i'GF 52 £2 1 BBS R2,G°SCHSGL_COMOS,10$ =: Mark queue non-empty 
C Al 0 0 10$:  MOVW  #SCH$C_COM pcasy STATE(RI) ; Set state to resident computable 
53  00000000'GF4 € MOVAQ G*SCHSAQ_COMTCR2J,R3  ; Compute address of queue 
93 61 O€ INSQUE (R1),a(R3)+ : Insert at tail of queue 


+ 
MPSSSCHED - SCHEDULE NEW PROCESS FOR EXECUTION 


This routine selects the highest priority executable process 
and places it in execution. 


This routine replaces SCH$SCHED in a vanilla VMS system. 
ENVIRONMENT: 
Executed by the primary processor. 


MOPS SL MMM MMM MMMM MmMmM mM mM Men CW Yn DW OOUIMUIMIMIUIMIUIUII III | oD 


SOOOOOCOOOOOCOCOOCOOCOOCOSOOCOSOOOSSCOSOOSOOOOOCOOOOOOOOOOO: 


NAMES AN OS ODNA UNE WN O OOD NAME WO OONAUS WN O 


BPRS SF FAI nonor 


WANNA AA ANNAN NAINNANWNNNAANW 


MPSSSCHED:: 3; Schedule for execution 
SETIPL #IPL$_SYNCH 3; Synch scheduler with event reporting 
FEF 30 BSBW MPS wetted : Schedul ¢ secondary 
52 00000000°GF 20 0 FA FFS #0,#52,G*SCHSGL_COMQS,R2 ; Find first full state 
8 3 BEQL L 3; No executable process? 
53 eonecege "er? 7E MOVAQ HE page COMHCLR2),R3 3; Compute queue head address 
4 9 OF REMQUE @(R35)+,R4 3; Get head of queue 
A BVS QEMPTY ; Br if queue was empty (bugcheck) 
9 1 BNEG 208 3 Queue not empty 
00 00000000‘ GF E BBCC R2,G*SCHSGL_COMQS,20$  ; Set queue empty 
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MPSCHED = MULTIPROCESSOR SCHEDULER 16-SEP-1984 02:07: AX/VMS_ Macro V04-00 Page 
yonc0oD MPSSRESCHED = RESCHEDULING INTERRUPT HAN ety 7 83:05:95 ERP. SROIMPSCHED. MAR: 1 . dy 
196 rt: 20$: : 
OA AG 91 014 4 CMPB = #DYNSC_PCB,PCBSB_TYPE(R4) ; Must be a process control block 
1 146A 50 BNEQ ; Otherwise fatal error 
3 AG oF 8 14 2) MOVW #SCHSC Selgiee: STATE(RS) ; Set state to current 
00000000 ' GF D 15 § MOVL RG g'sth GL. CURPTB ; Note current PCB location 
10 18 AG DA 01 3 MTPR  PCBSL_PHYPCB(R4) ,#PRS_PCBB ; Set PCB base physical address 
06 0158 4 LOPCTX ; Restore context 
54 DD Q15C¢ 55 PUSHL R4 3; Save register 
54 Q0000000'GF D0 01 f 2$ MOVL G“SCHSGL_CURPCB,R4 ; Get address of current PCB 
00 0000'CF 00 £6 016 5 BBSSI M#LCKSV_INTERLOCK,W*MPSS$GL_INTERLOCK,40$ ; Flush cache queue 
01 veal D1 1 23 40$: CMPL W*MPSSGL_STATE ,AMPSSK_IDLESTATE ; Is secondary idle? 
A Tz Gi 5 BNEQ $ ; Br on_no, already running a process 
17 60 MFPR = #PRS_ASTLVL,-(SP) : Get PR ASTLVL 
rf 17 61 TSTL (SP)F 3 Is ASTLVL = KERNEL? 
1 17 $6 BEQL 50$ ; Br on yes, dont cause reschedule 
00000000 ' GF 7FFFFFFF 8F o 0179 6 BITL #°X7FFFFFFF,G*SCHSGL_COMQS 3; Is any process other than null COM? 
1 g18% 64 BEQL 50$ ; Br on no, nothing else can run 
10 AS =OF:=—(0186 65 PUSHAB PCBSL_ASTQFL(R4) ; Are there any AST's outstandin 
10 AS” BE D1 189 06 CMPL (SP)+,PCBSL_ASTQFL(R4) ; for this process? If so, don' 
1D 12 018D 6 BNEQ 50$ ; cause a reschedule AST. 
54 6C AS DO O018F 68 MOVL PCBSL_PHD(R4) ,R4 ; Get address of PHD 
0104 ¢4 D5 0193 69 TSTL PHDSL_MPINHIBIT(R4) 3; Any reason not to run on secondary? 
ae 8199 7 BNEQ 45$ ; Br on yes, don't cause reschedule AST 
0199 ie IF DF .MPPFMSWT 
0199 7 BSBW W*MPSSPFM_ASTSC 
S33 ge 
13. OT DA 0199 76 MTPR #PSLSC_EXEC,#PRS_ASTLVL ; Cause reschedule of process when it 
019C 77 3 exits from kernel mode on primary 
54  00000000'°GF 00 HH 78 MOVL G*SCHSGL_CURPCB,R4 ; Get address of current PC 
16 11 OA 79 BRB 60$ 3; Don't decrement priority 
54  Q00000000'GF 00 O1A5 80 45$: MOVL G*SCHSGL_CURPCB,R4 3; Get address of current PCB 
0B AS 2F AG 91 «=(OTAC 81 50$: CMPB PCBSB_PRIB(R4),PCBSB_PRI(R4) ; Check for base 
08 13 0181 3 BEQL 60 ; Br if Priority=current - 
03 0B AS = 04 «ET OO01B3 8 BBC #4 ,PCB$B_PRI(R4) ,60$ 3: Don't float real time priority 
0B AG 96 0188 384 INCB = PCBSB_PRT(R4) ; Move toward base priority 
00000000 ' GF 0B AS 90 5188 $2 60$: MOVB PCB$B_PRI(R4) ,G*SCHSGB_PRI ; Set global priority 
54 8EDO OIC 6 POPL R4 ; Restore register 
02 Bis $34 REI ; Normal return 
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os -SBTTL MPSSMPSCHED = SECONDARY PROCESSOR SCHEDULING 
; FUNCTIONAL DESCRIPTION: 


vse with 


vo- 
xz=w 
mo 
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MPSSMPSCHED is entered to drop the current process running 
; in the secondary processor and select a new one. 


: ENVIRONMENT: 
: Executed by the secondary processor. 


»ALIGN LONG 
MPSSMPSCHED: : 3 

SETIPL #IPL$_SYNCH : Synchrentse with other events 
#PSLSA_CURMOD,4(SP) : Check for kernel 
GETOUT : If so, exit already in progress 


J 


04 AE 03000000 or 


; BITL 

1 BEQL 
MPSSMPSCHED2: : 
l DF ,MPPFMSWT 

BSBW MPSSPFM_SVPCTX 3; Gather performance measurement data 


SETIPL #IPLS_POWER ; Prevent duplicate SVPCTX from a MA780 
; interrupt for STOP/CPU 
SVPCTX ; Save current process context 
MOVL #MPSSK_DROPSTATE,W*MPSSGL_STATE ; Indicate process being dropped 
SETIPL #IPLS$_SYNCH 3"Now allow MA780 interrupts again 
MPSSMPSCHED1: : ; Init entry point for startup 


IF DF ,MPPFMSWT 
BSBW MPSSPFM_INTP 3; Gather performance measuremen* data 


07 
0000'CF 02 »bO 


FEIC’ 30 BSBW MPSSINTPRIM 3; Interrupt primary processor 

Now invalidate the system half of the translation buffer because 

the secondary is going into a Suapewett ing Loop until the primary 

giver it something to do. The primary my request that the secondary 
nvalidate certain system addresses from its translation buffer while 
it is wert ing. Since the sopentery won't have these addresses in its 
translation buffer, it ust keeps ot ting the pr inary that it has done 
the request, i.e., by clearing MPSSGL_INVALID. (If this clear was not 
in the loop, the primary would wait indefinitely for the secondary, who 
in turn was waiting indefinitely for the primary.) 


INVALID : Invalidate translation buffer 
108: CLRL W*MPSSGL_INVALID 3; Acknowledge TB invalidate request 
BBSSI M#LCKSV_INTERLOCK,W*MPSSGL_INTERLOCK,20$ ; Flush cache queue 
208: CMPL #MPSSK_BUSYSTATE ,W*MPSSGL_STATE ; Is state set to busy? 
BNEQ 10$ ; No, loop 


—oOmMmo 
moe 


: The primary has scheduled a process for the secondary to execute. 
3; The secondary need only load up the new PCB and being executing. 


et ee et a eB ee a a a a ee a a ee Dk a a a ed ad oo od a UU OC 
TNR HHH HMMM MMMMMMMMMmmMmmMmMmmMmmmMmmmmo OOO COO OS FFVIII ANAMOAAAAAAAAOOOAOOOo Ov 
COCOOCDCOD OD HE LSP LSPS SF SSM QOOMMIUIMIVIMIVIVINT 0908 SIN N NNN NNNN 


SOOOOCOOCOOOOOCOOSOCSOSOSOCOOCOCOOOCOSCOSGOOOCOCOOOCOOOCOCCOOOOOOOOOOOOOOOCOoOO 


PRERE LEER ERE PEPPER PEPPER EERE REPRE PERLE PPE E EEE PW 


BEE EEF PWN NWN DIPIDIPININPINDINID) 2 9 9 MPOOOOOOCOOCOCOCOOOOOOOOOO 
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MPSCH - MULTIPROCESSOR SCHEDULER 16-SEP-1984 7: AX/VMS_Macro v04-00 Page 10 
OL 080 MPSSHPSCHies = SECONDARY PROCESSOR SCHEDU §-§ 34 =}38% 85: 83 93 ry SRCIMPSCHED.MAR; 1 ° (1). 
1F8 447 SETIPL ake: POWER Disable po ctetl interrupts 
00 a cr 6 O1B 448 BBSSI” ALCKSD_INTERLOCK wenpssct _InTERLock 408 Flush cache queue 
ony i) 449 30S: MOVL W°MPS$GL_CURPCB,R4 5 “get current ech address 
D 6 450 MOVL pcest PHYSTB (RES R2 ; hysical PCB address 
DA : a3 MTPR #PR$_PCBB Se CB base address 
D 4 : IF DF ,MPPFMSWT 
D 454 BSBW MPSSPFM _LDPCTX 3; Gather performance measurement data 
0200 455 ~ENDC 
8 OD £28 
06 Ob 45 LDOPCTX Load process conte 
D MOVL #MPSS$K_EX ATE,W*M i A ndicate CPC X is done 
0000'CF 04 0 020 458 PSSK_EXECSTATE ,W*MPS$G tf TE ; Indi ™ i 
02 021 459 GETOUT: REI ;” And execute 
0214 460 END | 


MPSCHED 
Symbol table 


- MULTIPROCESSOR SCHEDULER 


p=1984 0:07:20 


AX/VMS_ Macro V04-00 
MP.SRCIMPSCHED.MAR; 1 


puss ayer eeekeree 02 aeeeeeee 
YNSC_P = 00 0 00C 
error OOs1s Ro B000000E 
IPL $ Pow POWER = OO01F RRRRRHRE x 
IPL SCHED = aeeeeeee = yf 
PLS SY NCH = 5 eeeeeeee =X 
LCKSV_INTERLOCK = aeeeeere = 
Me SSEXIT 00 E 0 OOOO00ES R 
MPSSGL_ CURPCB RARER x 
MPSSGL_ ob ay eeeneeee =X 
RP S$GL aL 78 Reeeeeee x 0 
LTIM RRRREREE x g 
mPSscr~ ~SECREGFLG rertrene x 
MPS $GL~ ATE Reeeeeee x 0 
MPSS bce QOOO00DA R 0 
MPSSINTPRIM eeereeee K 0 
MPSSK_BUSYSTATE = 00000003 
SSK_DROPST = 44444 
MPSS$K_EXECSTATE = 00000004 
MPSSK_IDLESTATE = 00000001 
MPSS$K_INITSTATE = 00000005 
MPSS$K_STOPSTATE = B0000T Ce 
MPSSMPSCHED 000001C8 RG 0 
MPSSMPSCHED1 Q00001E1 RG 0 
MPSSMPSCHED2 00000105 RG 0 
SSRESCHE QOOOOOFS RG 0 
MPSSRESCHEDIPLS 00000000 RG 0 
SSSCHED QOOOOIIE RG 0 
MPSSSCHEDIPLS 0000006D RG 8S 
SSSCHSC Q000001C RG 0 
MPSSV_SECWAITCK = 00000002 
SSWAITC eeneeree = =X 8602 
xTQ QO00007E R 92 
PCB$B_PRI = 00000008 
PCBSB_PRIB = 8 00002F 
CBSB_TYPE = Q000000A 
PCBSL_ASTQFL = 444 4h 
CBSL_PHD = 00000 oe 
PCBSL_PHYPCB = Sop NoS 
PCBSW_STAT = 00000 ss 
PFAIL_EXIT 444464 7R 02 
PHDSB_ASTLVL = QOOOOOCF 
PHDSL— “RPINMIBIT = 00000104 
PHDSL_ PSL = 4 & 
PRS PASTLUL = 1 
PRS_IPL = 0000 \ 
_PCBB = 0001 
PRS_SIRR = 14 
PRS_TBIA = 39 
PSLSC_EXEC = 1 
SLSM_CU = 
PSL$S_CURMOD = 000 
PSL$V~CURMOD = 1 
QE C7 R 0 
QEMPTY e R 
QLOOoP 9R 
SCHS$AQ_COMH eeeereee =X 


MPSCHED : = MULTIPROCESSOR SCHEDULER ts at 05:07:05 gees, Macro v04-00 
Psect synopsis “SEP=1984 02:07: MP.SRCIMPSCHED.MAR; 1 
¢eoaeseesesecsasnes > 
: Psect synopsis ! 
$e ane moamnome comes + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ) 60 ( 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD 
$$ 4944 00 ¢ wn 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
AE XENONPAGED 0000214 ( 532.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR' EXE 
QusenecssssEesweenewanes 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00: 00.06 00:00:01. ¢ 
Command processing 198 00:00:00.86 00:00:03. 
Pass 25 00:00:06.96 00:00:20.38 
Symbol table sort 0 00:00: 9-9 00:00:01.80 
Pass 2 97 00:00:01.76 00:00:06.14 
Symbol table output 9 00:00:00.09 00:00:00.26 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 sb i Sb Ses Bh 
Assembler run totals 500 00:00:10.59 00:00:33.47 


The working set Limit was 1350 pages. 
36516 bytes (72 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space allocated to hold 597 non-local and i7 local symbols. 
465 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
pages of virtual memory were used to define 21 macros. 


Guecoewenesweseeoesososeses$ 


; Macro Library statistics ; 


Macro Library name Macros defined 
_$255$DU g: MP.OBJIMP.MLB; 1 4 
-8255$D0UA28: (SYS.OBJJLIB.MLB; 1 9 
$255S$DUA28: CSYSLIBIJSTARLET.MLB;2 6 
TOTALS (all Libraries) 19 


745 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 


“a 
—M— 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 


MACRO/LIS=L1S$:MPSCHED/OBJ=0BJ$ :MPSCHED MSRC$ : MPPREF 1X/UPDATE=(ENHS : MPPREF IX) #MSRCS:MPSCHED/UPDATE=(ENHS:MPSCHED) +EXECMLS/LIB+LIBS:M | 
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